8 POKE788,49:TQ=TI
10 DV=PEEK(186):IFDV<8THENDV=8
20 PRINT"[147][159]":POKE53280,0:POKE53281,0:GOSUB100
30 SYS57812"F.MONKEY MATCH",DV,0:POKE780,.:POKE781,.:POKE782,240:SYS65493
40 SYS57812"F.ANIMALS",DV,0:POKE780,.:POKE781,.:POKE782,232:SYS65493
50 SYS57812"MM.MOUSE C700",DV,0:POKE780,.:POKE781,.:POKE782,199:SYS65493
60 IFTI<TQ+100THEN60
70 PRINT"[144]LOAD"CHR$(34)"MONKEY MATCH"CHR$(34)","DV
80 PRINT"RUN"
90 POKE631,13:POKE632,13:POKE198,2:END
100 POKE214,9:PRINT
110 PRINT"[150]                                      "
120 FORI=.TO10:PRINT"[129]                                      ":NEXT
130 PRINT"[149]                                      "
200 POKE214,11:PRINT
210 FORI=.TO8:READA$:PRINTTAB(20-LEN(A$)/2)"[129]"A$:NEXT
220 PRINTTAB(13)"[204][160][207][160][193][160][196][160][201][160][206][160][199][160]. . ."
230 RETURN
300 DATA"[205][160][207][160][206][160][203][160][197][160][217][160][160][205][160][193][160][212][160][195][160][200]"
310 DATA"BY [208]INEAPPLE [205]ONKEY",
320 DATA"([195]) 1998 BY [202] & [198] [208]UBLISHING, [201]NC.",
330 DATA"[212]HIS PROGRAM IS NOT SHAREWARE
340 [131]"OR IN THE (null)UBLIC STR$OMAIN.",
350 [131]"1-800-831-2694 OR 1-318-221-8718"
10000 D[178][194](186):N$[178]"0:B.MONKEY MATCH":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]